home *** CD-ROM | disk | FTP | other *** search
/ Exame Informatica 139 / Exame Informatica 139.iso / Revista / Flash / Uniform Server / diskw / usr / lib / CGI / eg / nph-clock.cgi < prev    next >
Encoding:
Text File  |  2002-06-01  |  377 b   |  19 lines
  1. #!/usr/local/bin/perl -w
  2.  
  3. use CGI::Push qw(:standard :html3);
  4.  
  5. do_push(-next_page=>\&draw_time,-delay=>1);
  6.  
  7. sub draw_time {
  8.     my $time = `/bin/date`;
  9.     return start_html('Tick Tock'),
  10.            div({-align=>CENTER},
  11.            h1('Virtual Clock'),
  12.            h2($time)
  13.            ),
  14.        hr,
  15.        a({-href=>'index.html'},'More examples'),
  16.            end_html();
  17. }
  18.  
  19.